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Require file for INSTALL 


Version: *v04-000' 


PSPS SESS LISS ISITE TTS TT TT TT Tec eter etree citi icteric rr cect i tir iii iti titi ft 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


rare SOF TWARE 4 FURNISHED nee A LICENSE AND MAY BE USED AND COPIE 

ONLY IN ACCORDANCE WITH THE TERMS OF SUCH CENSE AND WITH TH 

INCLUSION OF THe ABOVE Spd hd NOTICE. THIS SOFTWARE OR ANY OTHER 

E PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

- NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE W 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGI 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  eetcapall OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 


Dine 


ITHOUT NOTICE 
TAL EQUIPMENT 


eRe REE ERR A ARETE EERE REAR AEA AERA eEe 
lee4 


FACILITY: Install 
ABSTRACT: The INSTALL utility makes image files known to the VMS 


operating system 


ENVIRONMENT: VAX native, user and kernel mode 
AUTHOR: Bob Grosso 
CREATION DATE: June 1981 


MODIFIED BY: 

v03-004 BLS0256 Benn Schreiber 27-Dec-1983 
Clean up pass. 

v03-003 RPGO003 Bob Grosso 06-Sep-1983 
Add macro to set IPL. 

v03-002 RPGO002 Bob Gro 21-Jun-1983 
Add lock status block oftset macros. 

v02-001 RPGO001 Bob Grosso 28-Dec-1981 


Use shared message openin. 
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1 
: Define VMS block structures 


STRUCTURE 
BBLOCK CO, P, S, E; NJ = 


(BBLGCK + 0) <P, S, E>; 
Useful macros 
MACRO 
; Macro to generate a pointer to a counted string 
CSTRING (STRING) = UPLIT BYTE (ZCHARCOUNT (STRING), STRING)%, 
Macro to execute a given sequence of commands and return if any error 


execute (command, errorcode) = 
BEGIN 


LOCAL 
status; 
status = command; 
Mk, NOT .status ! if an error is detected 
Nair ZLENGTH GTR 1 If errorcode argument is present 
ZTHEN SIGNAL (errorcode, TREMAINING. Status); 
3 RETURN .status; ! Return with error status 
ENDZ, 


: Macro to execute a given sequence of commands and signal if any error 
report (command) = 
BEGIN 
LOCAL 
status; 
status = command; é 
IF NOT .status ! if an error is detected 


N 
SIGNAL (.status); 
ENDZ; 


' 
Set processor IPL 


: Andy Goldstein 
MACRO 


SET_IPL ( 


LEVEL), PRS_IPL? 


LITERAL 
TRUE ! Boolean TRUE 


<-_ 
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FALSE = 0; ! Boolean FALSE 


INSPREFIX,REQ;1 16-SEP-1984 16:51:09.58 Page 4 


LITERAL 


ACRO 
LKSW_STATUS 


= 8. 0,16, O%, 

LKSWISPARE = 18-18. i, 

CKSL -LOCKID = 0,32,32, 0%; 
MACRO 


DYN_DESC DECL = 
BLOCKC8,BYTE] PRESET (CDSC$B CLASS] = DSCSK CLASS D, 
MACRO CDSCSB_DTYPE] = DSCSK_DTYPE_T)x; 


eetomumd Pi! = ! Init dynamic string descriptor 
DLDSC$W_LENGTH) = 0; 
DCDSC$B_CLASS] = DSCSK_CLASS_D; 
DCDSCSB_DTYPE) = DSCSK_DTYPE_T; 
DCDSCSA_POINTER) = 0; 
END 
wy EE 


Sc 
s¢ 
sc 
. 
Ds = 'Init static string descriptor 
sc 
sc 
sc 
sc 
x 


R 
INSSC_GBLNAMLEN = 39 + 4; ! Length of global section name plus suffix ‘nnn’ 


NE ee ss ——rrr =... 


<_— 
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